home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 24 / AMIGAplus Sonderheft 24 (2000)(Falke)(DE)[!].iso / PublicDomain / Anwendungen / MT-RechnungIII / PrintDoks / Mahnung_2.outpri < prev    next >
Text File  |  1999-03-27  |  6KB  |  262 lines
  1. 1$VER: Mahnung_2 1.04 (28.03.99)
  2. %!PS-Adobe-3.0
  3. %%Creator: Manfred Tremmel
  4. %%CreationDate: (28.03.1999)
  5. %%Version: 1.04
  6. %%Title: (MT-RechnungIII - 2. Mahnung)
  7. %%LanguageLevel: 2
  8. %%DocumentMedia: A4 594 839 null () ()
  9. %%DocumentNeededResources: font Times-Roman
  10. %%BoundingBox: 0 0 549 839
  11. %%EndComments
  12. %%BeginnDefaults
  13. %%PageMedia: A4
  14. %%EndDefaults
  15.  
  16. %%BeginnSetup
  17. << /PageSize [594 839] >> setpagedevice
  18.  
  19. /PageSize [594 839] def
  20.  
  21. /DokumentRandX 60 def
  22. /DokumentRandY 45 def
  23.  
  24. DruckrandX 720 mul 256 div /DruckrandX exch def
  25. DruckrandY 720 mul 256 div /DruckrandY exch def
  26.  
  27. DruckrandX DokumentRandX ge
  28. {
  29.     0 /DokumentRandX exch def
  30. }
  31. {
  32.     DokumentRandX DruckrandX sub /DokumentRandX exch def
  33. } ifelse
  34.  
  35. DruckrandY DokumentRandY ge
  36. {
  37.     PageSize 1 get /DokumentRandY exch def
  38. }
  39. {
  40.     PageSize 1 get DokumentRandY sub DruckrandY add /DokumentRandY exch def
  41. } ifelse
  42. /DokumentRandYOriginal DokumentRandY def
  43. %%EndSetup
  44.  
  45. %%BeginnResource
  46. /reencodedict 5 dict def
  47. /ReEncode
  48. {
  49.      reencodedict begin
  50.      /newencoding exch def
  51.      /newfontname exch def
  52.      /basefontname exch def
  53.  
  54.      /basefontdict basefontname findfont def
  55.  
  56.      /newfont basefontdict maxlength dict def
  57.  
  58.      basefontdict
  59.      { exch dup dup /FID ne exch /Encoding ne and
  60.           { exch newfont 3 1 roll put }
  61.           { pop pop }
  62.           ifelse
  63.      } forall
  64.      newfont /FontName newfontname put
  65.      newfont /Encoding newencoding put
  66.      newfontname newfont definefont pop
  67.      end
  68. } def
  69.  
  70. /ISOLatin8Encoding
  71. [
  72.     ISOLatin1Encoding 0 164 getinterval aload pop
  73.     /euro
  74.     ISOLatin1Encoding 165 91 getinterval aload pop
  75. ] def
  76. /getfont {ISOLatin8Encoding ReEncode findfont exch scalefont def} bind def
  77. %%EndResource
  78.  
  79. %% Fontpsoidoname, Fontgroesse, Realname, Programm (siehe oben)
  80. /Times28 28 /OF0 /Times-Roman /OF0 getfont
  81. /Times28Line 28 def
  82. /Times14 14 /OF0 /Times-Roman /OF0 getfont
  83. /Times14Line 14 def
  84. /Times10 10 /OF0 /Times-Roman /OF0 getfont
  85. /Times10Line 10 def
  86. /Times8 8 /OF0 /Times-Roman /OF0 getfont
  87. /Times8Line 8 def
  88. Times14 setfont
  89.  
  90. /ZWDokumentRand DokumentRandY def
  91. /Seite 1 def
  92. /SeitenNr 4 string def
  93.  
  94. DokumentRandX DokumentRandY moveto
  95. DruckDatum 0 get dup stringwidth
  96. pop 486 exch sub
  97. DokumentRandX add DokumentRandY moveto show
  98.  
  99. %% Ausgab des Dokuments
  100. NiedAdresse3
  101. {
  102.     DokumentRandX ZWDokumentRand moveto
  103.     show
  104.     ZWDokumentRand Times14Line sub /ZWDokumentRand exch def
  105. } forall
  106.  
  107. /Position 0 def
  108. DokumentRandY 110 sub /DokumentRandY exch def
  109.  
  110. Times28 setfont
  111. DokumentRandX DokumentRandY moveto
  112. (2. Mahnung) dup stringwidth
  113. pop 486 exch sub
  114. DokumentRandX add DokumentRandY moveto show
  115.  
  116. Times8 setfont
  117. Times8 /FontInfo known
  118. {
  119.     Times8 /FontInfo get dup dup dup /UnderlinePosition known
  120.     {
  121.         /UnderlinePosition get
  122.         Times8Line mul 1000 div cvi /Unterstreichabstand exch def
  123.     }
  124.     {
  125.         Times8Line -9 div cvi /Unterstreichabstand exch def
  126.         pop
  127.     } ifelse
  128.     /UnderlineThicknes known
  129.     {
  130.         /UnderlineThicknes get
  131.         Times8Line mul /Unterstrichdicke exch def
  132.     }
  133.     {
  134.         Times8Line 24 div /Unterstrichdicke exch def
  135.         pop
  136.     } ifelse
  137. }
  138. {
  139.     Times8Line -9 div cvi /Unterstreichabstand exch def
  140.     Times8Line 24 div /Unterstrichdicke exch def
  141.     pop
  142. } ifelse
  143.  
  144. NiedAdresse1
  145. {
  146.     newpath
  147.     DokumentRandX DokumentRandY Unterstreichabstand add moveto
  148.     stringwidth pop DokumentRandX add DokumentRandY Unterstreichabstand add
  149.     lineto closepath Unterstrichdicke setlinewidth
  150.     stroke
  151.     DokumentRandX DokumentRandY moveto
  152.     NiedAdresse1 Position get show
  153.     DokumentRandY Times8Line sub /DokumentRandY exch def
  154.     Position 1 add /Position exch def
  155. } forall
  156.  
  157. 0.5 setlinewidth
  158.  
  159. Times14 setfont
  160.  
  161. DokumentRandY Times14Line sub /DokumentRandY exch def
  162. WempfAdresse3
  163. {
  164.     DokumentRandX DokumentRandY moveto
  165.     show
  166.     DokumentRandY Times14Line sub /DokumentRandY exch def
  167. } forall
  168.  
  169. DokumentRandY 50 sub /DokumentRandY exch def
  170.  
  171. DokumentRandX DokumentRandY moveto
  172. (Ihre KundenNr.:) show
  173. DokumentRandX 120 add DokumentRandY moveto
  174. ARRechEmpfNr show
  175. DokumentRandY Times14Line sub /DokumentRandY exch def
  176.  
  177. DokumentRandX DokumentRandY moveto
  178. (Betreff Rechnung ) show
  179. DokumentNr show
  180. ( vom ) show
  181. ARRechnungDatum 0 get show
  182. DokumentRandY Times14Line sub 30 sub /DokumentRandY exch def
  183.  
  184. DokumentRandX DokumentRandY moveto
  185.  
  186. RempfAnrede (Firma) eq
  187. {
  188.     (Sehr geehrte Damen und Herren,) show
  189. }
  190. {
  191.     RempfAnrede (Herr) eq
  192.     {
  193.         (Sehr geehrter ) show
  194.         RempfAnrede show
  195.         ( ) show
  196.         RempfName show
  197.         (,) show
  198.     }
  199.     {
  200.         (Sehr geehrte ) show
  201.         RempfAnrede show
  202.         ( ) show
  203.         RempfName show
  204.         (,) show
  205.     } ifelse
  206. } ifelse
  207.  
  208. DokumentRandY Times14Line sub Times14Line sub /DokumentRandY exch def
  209.  
  210. DokumentRandX DokumentRandY moveto
  211. (leider muß ich Ihnen mitteilen, dass Sie meine Rechnung Nr ) show
  212. DokumentNr show
  213. ( vom ) show
  214. ARRechnungDatum 1 get show
  215. DokumentRandY Times14Line sub /DokumentRandY exch def
  216. DokumentRandX DokumentRandY moveto
  217. (trotz nochmaliger Aufforderung am ) show
  218. ARMahn1Datum 1 get show
  219. ( bisher noch nicht bezahlt haben.) show
  220. DokumentRandY Times14Line sub /DokumentRandY exch def
  221. DokumentRandX DokumentRandY moveto
  222. (Ich möchte Sie deshalb nachdrücklich auffordern, Ihr Versäumnis nachzuholen) show
  223. DokumentRandY Times14Line sub /DokumentRandY exch def
  224. DokumentRandX DokumentRandY moveto
  225. (und den ausstehenden Rechnungsbetrag in Höhe von ) show
  226. ARWaehrung 1 gt
  227. {
  228.     ARGesamtminRabSkonWert 3 get show
  229. }
  230. {
  231.     ARGesamtminRabSkonWert 1 get show
  232. } ifelse
  233. ( umgehend) show
  234. DokumentRandY Times14Line sub /DokumentRandY exch def
  235. DokumentRandX DokumentRandY moveto
  236. (auf mein Konto zu überweisen.) show
  237. DokumentRandY Times14Line sub Times14Line sub Times14Line sub /DokumentRandY exch def
  238. DokumentRandX DokumentRandY moveto
  239. (Bankverbindung:) show
  240. DokumentRandY Times14Line sub /DokumentRandY exch def
  241. DokumentRandX DokumentRandY moveto
  242. NiedBank show
  243. (    BLZ: ) show
  244. NiedBLZ2 show
  245. (    Konto: ) show
  246. NiedKonto show
  247. DokumentRandY Times14Line sub Times14Line sub Times14Line sub /DokumentRandY exch def
  248. DokumentRandX DokumentRandY moveto
  249. (Mit freundlichen Grüßen) show
  250. DokumentRandY Times14Line 6 mul cvi sub /DokumentRandY exch def
  251. DokumentRandX DokumentRandY moveto
  252. VerkVorname show
  253. ( ) show
  254. VerkName show
  255.  
  256. showpage
  257.  
  258. %%Trailer
  259. clear
  260. %%EOF
  261.  
  262.